unit Main;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Buttons, Vcl.ToolWin, Vcl.ActnMan,
  Vcl.ActnCtrls, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.ComCtrls, Data.DB, Vcl.Grids,
  Vcl.DBGrids,XPStyleActnCtrls;

type
  TfrmMain = class(TForm)
    ActionToolBar1: TActionToolBar;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Panel1: TPanel;
    Panel2: TPanel;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    BitBtn15: TBitBtn;
    Label1: TLabel;
    PageControl2: TPageControl;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label8: TLabel;
    Edit3: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label11: TLabel;
    Label12: TLabel;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Label13: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Panel4: TPanel;
    Image1: TImage;
    Button1: TButton;
    Button2: TButton;
    ComboBox1: TComboBox;
    DBGrid2: TDBGrid;
    Panel5: TPanel;
    Panel6: TPanel;
    Label5: TLabel;
    BitBtn16: TBitBtn;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    DBGrid3: TDBGrid;
    Panel7: TPanel;
    Panel8: TPanel;
    Button3: TButton;
    Edit10: TEdit;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

uses Login, uGetTBSiteData, uGet1688SiteData, uGetJDSiteData;

procedure TfrmMain.BitBtn10Click(Sender: TObject);
begin
  with TgetJDSiteData.Create(application) do
  begin
    ShowModal;
    free;
  end;
end;

procedure TfrmMain.BitBtn8Click(Sender: TObject);
begin
  with TgetTBSiteData.Create(application) do
  begin
    ShowModal;
    free;
  end;
end;

procedure TfrmMain.BitBtn9Click(Sender: TObject);
begin
  with Tget1688SiteData.Create(application) do
  begin
    ShowModal;
    free;
  end;
end;

procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  frmLogin.close;
end;

end.
